home *** CD-ROM | disk | FTP | other *** search
/ Network Support Library / RoseWare - Network Support Library.iso / apidev / tpapi.exe / EXAMPLES / SETLOGIN.PAS < prev    next >
Pascal/Delphi Source File  |  1994-01-14  |  3KB  |  101 lines
  1. {***************************************************************************}
  2. {** Program : SETLOGIN.PAS                                                **}
  3. {***************************************************************************}
  4. {** Version : 1.0             ** Started : 19/12/90  ** Ended : 19/12/90  **}
  5. {***************************************************************************}
  6. {******************************** Description ******************************}
  7. {***************************************************************************}
  8. {** SETLOGIN allows the SUPERVISOR or a console operator to enable or     **}
  9. {** disable login on a file server.  The user must be sitting on the file **}
  10. {** server where login is to be enabled or disabled.                      **}
  11. {**                                                                       **}
  12. {**                                                                       **}
  13. {***************************************************************************}
  14. {******************************** Information ******************************}
  15. {***************************************************************************}
  16. {** To enable login use  : SETLOGIN TRUE                                  **}
  17. {** To disable login     : SETLOGIN FALSE                                 **}
  18. {**                                                                       **}
  19. {** The user will be informed if the operation was sucessful or not.      **}
  20. {**                                                                       **}
  21. {***************************************************************************}
  22.  
  23. program SETLOGIN;
  24.  
  25. USES
  26.  
  27.   nwvar, nwerror, nwfsserv;
  28.  
  29. CONST
  30.  
  31.   ProgramName = 'SETLOGIN.EXE';
  32.   Version     = '1.0';
  33.   Description = 'Allows SUPERVISOR or CONSOLE operator to enable / disable login';
  34.  
  35. VAR
  36.  
  37.   FileServer  : ^FileServerOBJ;
  38.   CommandLine : STRING;
  39.   OK          : BOOLEAN;
  40.  
  41. {******}
  42.  
  43. FUNCTION GetCommandLine : BOOLEAN;
  44.  
  45. BEGIN
  46.  
  47.   OK := TRUE;
  48.   IF (PARAMCOUNT < 1) OR (FileServer^.CheckConsolePrivileges <> Successful) THEN
  49.     OK := FALSE
  50.   ELSE
  51.     BEGIN
  52.  
  53.       CommandLine := FileServer^.UppercaseNW (PARAMSTR (1) );
  54.       IF (CommandLine <> 'TRUE') AND (CommandLine <> 'FALSE') THEN
  55.         OK := FALSE;
  56.  
  57.     END;
  58.  
  59.   IF NOT OK THEN
  60.     BEGIN
  61.  
  62.       WRITELN;
  63.       WRITELN ('Program : ', ProgramName);
  64.       WRITELN ('Version : ', Version);
  65.       WRITELN ('Description : ', Description);
  66.       WRITELN;
  67.       WRITELN;
  68.       WRITELN ('USAGE : ');
  69.       WRITELN;
  70.       WRITELN ('SETLOGIN [TRUE] [FALSE]');
  71.       WRITELN;
  72.       WRITELN ('[TRUE]  allow users to login');
  73.       WRITELN ('[FALSE] do not allow users to login');
  74.       WRITELN;
  75.       WRITELN ('You must be SUPERVISOR or a CONSOLE operator!');
  76.       HALT (1);
  77.  
  78.     END;
  79.  
  80.   IF CommandLine = 'TRUE' THEN
  81.     GetCommandLine := TRUE
  82.   ELSE
  83.     GetCommandLine := FALSE;
  84.  
  85. END; {procedure GetCommandLine}
  86.  
  87. {******}
  88.  
  89. BEGIN
  90.  
  91.   NEW (FileServer, Init (true));
  92.  
  93.   IF GetCommandLine THEN
  94.     WRITELN ('Enabling login : ', FileServer^.EnableFileServerLogin = 0)
  95.   ELSE
  96.     WRITELN ('Disabling login : ', FileServer^.DisableFileServerLogin = 0);
  97.  
  98.   DISPOSE (FileServer, Done);
  99.  
  100. END.
  101.